home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #1 / Commodore_Disk_User_Vol.4_1_1990_-.d64 / number defender (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  152 lines
  1. 0 rem"number defender-(c)1989 nat fun services
  2. 1 [151]49152,rt:[156]:rt[178][194](49152):[141]2:sp(1)[178]1.5:sp(2)[178]1:sp(3)[178].5:bv[178]0:[137]6
  3. 2 [151]53281,1:[151]53280,1:[129]c[178]1[164]50:[130]:bm(1)[178]10:bm(2)[178]20:bm(3)[178]30
  4. 3 [151]53281,15:[151]53280,15:[129]c[178]1[164]50:[130]:t[178]0:[129]i[178]3[164]35[169]4:bp(t)[178]i:t[178]t[170]1
  5. 4 [130]:[151]53281,12:[151]53280,12:[129]c[178]1[164]50:[130]:[151]53281,11:[151]53280,11
  6. 5 [129]c[178]1[164]50:[130]:bm$[178]"onon  cmdcmd  cmdcmd*rndcmdcmdcontintabscmdcmdwaitlogcos":[142]
  7. 6 [151]53281,0:[151]53280,0:vs$(1)[178]"":vs$(2)[178]"":vs$(3)[178]""
  8. 7 cl(1,1)[178]15:cl(1,2)[178]12:cl(1,3)[178]11:cl(2,1)[178]3:cl(2,2)[178]14:cl(2,3)[178]6
  9. 8 cl(3,1)[178]7:cl(3,2)[178]8:cl(3,3)[178]2
  10. 9 sh$[178]"cmd cmd on systoforto  cmd cmdcmdcmdcmdcmdcossys for verifylog"
  11. 10 s[178]54272:[141]59999:[151]s[170]4,129
  12. 11 [151]53280,0:[151]53281,0:[153]"load     opentoconttotocmdcmdcmdopenlencontstr$(NULL)"
  13. 15 [153][166]9)"onopenatn(NULL)str$ (NULL)athan chr$rainger (NULL)(NULL)val(NULL)val(NULL)(NULL)"
  14. 20 [153][166]5)"  tab(tab(tab(waitrndfn   fnlogwait* fn   waitrndfn   fn   waitrnd"
  15. 25 [153][166]5)"for  waitlog  fn   fn logcos  fn   fn fn fn "
  16. 30 [153][166]5)"sys    fn   fn fn fn fn   waitcosfn   fn   *":lv[178]1
  17. 35 [153][166]5)"    fn   fn fn fn fn   fn fn waitlog waitrnd"
  18. 40 [153][166]5)"    waitlog   *fn fn fn   *fn   fn fn "
  19. 45 [153][166]2)"    log    fn   fn   fn  logfn   logfn   fn   waitrnd"
  20. 50 [153][166]2)"for  rnd waitfn  fn fn fn fn   sgn fn fn "
  21. 55 [153][166]2)"sys   waitint    fn  fn   fn fn fn fn   fn   waitcos"
  22. 60 [153][166]2)"  cos waitfn  fn fn fn fn   fn fn rnd waitrnd"
  23. 65 [153][166]2)"    *    fn fn   fn fn   *fn   fn fn "
  24. 68 [151]646,[187](0)[172]16:[153]"       (NULL)ritten by (NULL)athan chr$rainger"
  25. 70 [153][166]4)"waitlist- (NULL)ress the space bar to start -":[151]198,0
  26. 75 c1(0)[178]6:c1(1)[178]14:c1(2)[178]3:c1(3)[178]1:c1(4)[178]3:c1(5)[178]14
  27. 80 c2(0)[178]11:c2(1)[178]12:c2(2)[178]15:c2(3)[178]1:c2(4)[178]15:c2(5)[178]12:q[178]0
  28. 82 c3(0)[178]7:c3(1)[178]7:c3(2)[178]7:c3(3)[178]8:c3(4)[178]8:c3(5)[178]8
  29. 85 [151]646,c1(q):[153]""[166]9)"atn(NULL)str$ (NULL)athan chr$rainger (NULL)(NULL)val(NULL)val(NULL)(NULL)":[151]646,c2(q)
  30. 87 [153]"    - (NULL)ress the space bar to start -"
  31. 88 [151]646,[187](0)[172]16
  32. 89 [153]"       (NULL)ritten by (NULL)athan chr$rainger"
  33. 91 [151]646,c3(q)
  34. 92 [153]"(NULL)n the screen are shown several pillars,";
  35. 93 [153]" numbered 1 to 9...you must defend each"
  36. 94 [153]"   pillar when a bomb falls down by"
  37. 95 [153]" pressing the appropriate key (1-9) of"
  38. 96 [153]"   the pillar that you wish to defend."
  39. 97 q[178]q[170]1:[139]q[178]6[167]q[178]0
  40. 98 [161]a$:[139]a$[179][177]" "[167][137]85
  41. 99 [137]1000
  42. 100 [153]"load":[129]c[178]1[164]1000:[130]:[151]s[170]4,129
  43. 101 [129]i[178]0[164]3:[151]646,c2(i):[153]""[166]15)"chr$et ready!"
  44. 102 [153]""[166]14)"ascor (NULL)evel"lv"cmd!"
  45. 103 [153]"  (NULL)ou must stop"bm(lv)"bombs on this level":[129]c[178]1[164]100:[130]:[130]
  46. 104 [140]:[129]i[178]0[164]6:[135]nd:[151]s[170]1,125:[129]c[178]1[164]50:[130]
  47. 105 [151]s[170]1,0:[129]c[178]1[164]nd:[130]:[130]
  48. 106 [129]i[178]3[164]0[169][171]1:[151]646,c2(i):[153]""[166]15)"chr$et ready!"
  49. 107 [153]""[166]14)"ascor (NULL)evel"lv"cmd!"
  50. 108 [153]"  (NULL)ou must stop"bm(lv)"bombs on this level"
  51. 109 [129]c[178]1[164]100:[130]:[130]:[153]"load":[129]c[178]1[164]1000:[130]:[142]
  52. 1000 [141]100:[151]53265,0
  53. 1005 [151]53280,0:[151]53281,0:[153]"load":bm[178]bm(lv):hs[178]4
  54. 1010 [141]2000
  55. 1011 [141]1100:[141]59999:[151]s[170]4,129
  56. 1013 [129]c[178]1[164]3000:[130]
  57. 1015 [153]"";
  58. 1016 [151]646,cl(lv,2)
  59. 1017 [153]" (NULL)core"sc"cmd     ":[153],[166]3)"on   (NULL)evel"lv"cmd   "
  60. 1018 [153],,[166]3)"on   peekombs left"bm(lv)"cmd on"
  61. 1020 [153]vs$(lv)[166]bp(hs)[171]1)sh$
  62. 1025 [139]bs[177]0[167][137]1058
  63. 1030 rn[178][181]([187](0)[172]9):rb[178]bp(rn):bs[178]1:bv[178]1:bm(lv)[178]bm(lv)[171]1
  64. 1032 [153]""[166]rb)bm$
  65. 1035 [139]bm(lv)[178][171]1[167][137]1050
  66. 1040 [137]1058
  67. 1050 [153]vs$(lv)"                                        "
  68. 1051 [153]vs$(lv)"                                        "
  69. 1052 [153]vs$(lv)[166]bp(hs)):[129]i[178]0[164]2
  70. 1053 [151]s[170]4,17:[129]i[178]0[164]35:[153]vs$(lv)[166]i)sh$:[151]s[170]1,i[172]7:[130]
  71. 1054 [129]i[178]35[164]0[169][171]1:[153]vs$(lv)[166]i)sh$:[151]s[170]1,i[172]7:[130]:[151]s[170]1,0
  72. 1055 [153]"load"[166]15)"(NULL)ell done!":[139]lv[178]3[167][137]1057
  73. 1056 [153][166]9)"(NULL)roceed to next level!"
  74. 1057 sc[178]sc[170](250[172]lv):lv[178]lv[170]1:[137]1092
  75. 1058 [161]a$:[139]a$[179]"1"[176]a$[177]"9"[167][137]1070
  76. 1060 [139]hs[179][177][197](a$)[171]1[167]hs[178][197](a$)[171]1:[137]1062
  77. 1061 [137]1070
  78. 1062 [153]vs$(lv)"                                        "
  79. 1063 [153]vs$(lv)"                                        "
  80. 1064 [153]vs$(lv)[166]bp(hs)):[137]1070
  81. 1070 bv[178]bv[170]sp(lv):[139]bv[177][178]21[171](6[170](3[172]lv))[167][137]1078
  82. 1071 [153]"";:[129]i[178]1[164]bv:[153]:[130]:[153][166]rb)bm$
  83. 1072 [139]bv[178]19[171](6[170](3[172]lv))[167][137]1084
  84. 1073 [137]1015
  85. 1078 [151]s[170]4,129:[129]q[178]0[164]2:[129]t[178]0[164]30[169]4:[151]s[170]1,t:[130]:[141]2:[130]
  86. 1079 [129]t[178]0[164]2:[129]i[178]45[164]0[169][171]5:[151]s[170]1,i:[151]53281,1:[151]53281,0:[130]:[130]
  87. 1080 [151]53280,6:[153]"loadsys(NULL)oooh (NULL)o! (NULL)ou let one of the"
  88. 1081 [153]"forbombs fly into a tower...!"
  89. 1082 [137]3000
  90. 1083 [139]hs[178]rn[167][137]1090
  91. 1084 [139]hs[178]rn[167][137]1089
  92. 1085 [137]1015
  93. 1089 [153]"";:[129]i[178]1[164]bv:[153]:[130]:[153][166]bp(rn))"  cmdcmd  cmdcmd  "
  94. 1090 [151]s[170]4,129:[129]i[178]20[164]0[169][171]1:[151]s[170]1,i:[130]:[129]i[178]0[164]20[169]2:[151]s[170]1,i:[130]
  95. 1091 [151]s[170]1,0:bs[178]0:sc[178]sc[170]25:[137]1015
  96. 1092 [153]"(NULL)evel completion bonus is"250[172](lv[171]1)"cmdpts":[129]c[178]1[164]5000:[130]
  97. 1093 [139]lv[179]4[167][137]1000
  98. 1094 [141]4000:[153]"syslenongratulations you have defeated "
  99. 1095 [153][166]13)"the aliens!!!!!":[153]"clr(NULL)our final score is"sc"cmd!!!"
  100. 1097 [153]"open(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL) to continue"
  101. 1098 [161]a$:[139]a$[179][177][199](13)[167]1098
  102. 1099 [137]1
  103. 1100 [153]"";
  104. 1105 [129]i[178]1[164]22[171](6[170](3[172]lv)):[153]:[130]
  105. 1110 [153]" 1 2 3 4 5 6 7 8 9"
  106. 1112 [151]646,cl(lv,1):[153]"fnthenfnthenfnthenfnthenfnthenfnthenfnthenfnthenfnthen"
  107. 1114 [153]"intabsintabsintabsintabsintabsintabsintabsintabsintabs"
  108. 1115 [151]646,cl(lv,2):[129]i[178]1[164]lv[172]3
  109. 1116 [153]"getwaitgetgetwaitgetgetwaitgetgetwaitgetgetwaitgetgetwaitgetgetwaitgetgetwaitgetgetwaitget"
  110. 1117 [130]
  111. 1118 [151]646,cl(lv,3):[153]"intabsintabsintabsintabsintabsintabsintabsintabsintabs"
  112. 1120 [153]"fnthenfnthenfnthenfnthenfnthenfnthenfnthenfnthenfnthen"
  113. 1122 [153]"                  "
  114. 1123 sv[178]19[171](6[170](3[172]lv))
  115. 1125 [151]53265,27:[142]
  116. 2000 [151]646,cl(lv,1)
  117. 2005 [153]"totototototototototototototototototototototototototototototototototototototototo";
  118. 2008 [151]646,cl(lv,2)
  119. 2010 [153]" (NULL)core"sc"cmd     ":[153],[166]3)"on   (NULL)evel"lv"cmd    "
  120. 2015 [153],,[166]3)"on   peekombs left"bm(lv)"cmd on":bm[178]bm(lv):[141]59999
  121. 2020 [129]i[178]1984[164]2023:[151]i,227:[130]:[129]i[178]56256[164]56295:[151]i,cl(lv,3):[130]:[142]
  122. 3000 [153]"clr(NULL)ou attained a score of"sc"points!"
  123. 3002 [153]"             - chr$atn(NULL)val (NULL)(NULL)val(NULL)! -"
  124. 3005 [153]"open(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL) to continue"
  125. 3006 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  126. 3008 [151]s[170]4,129:y[178]5
  127. 3009 [151]s[170]1,y:y[178]y[171]1:[139]y[178]0[167]y[178]5
  128. 3010 [161]a$:[139]a$[179][177][199](13)[167]3009
  129. 3011 [139]rt[178]0[167]rt[178]1:[137]3015
  130. 3012 [137]1
  131. 3015 [153]"load (NULL)nfortunately,there are no second        chances in this game..."
  132. 3016 [129]i[178]15[164]0[169][171].1:[151]s[170]24,i:[130]:[129]c[178]1[164]3000:[130]
  133. 3017 [151]53270,193:[151]0,0:[129]c[178]1[164]1000:[130]:[151]0,47:[129]c[178]1[164]1500:[130]
  134. 3019 [151]53270,200
  135. 3020 [153]"loadcont"[199](142):[151]53280,14:[151]53281,6
  136. 3025 [153]"    **** commodore 64 basic v2 ****"
  137. 3030 [153]" 64k ram system  38911 basic bytes free"
  138. 3040 [153]"ready."
  139. 3045 [129]t[178]0[164]4:[153]" ":[129]c[178]1[164]350:[130]:[153]"wait "
  140. 3046 [129]c[178]1[164]250:[130]:[130]
  141. 3048 [129]t[178]0[164]15:[135]a$:[153]""[166]t)a$" ":[129]c[178]1[164]75:[130]:[130]
  142. 3049 [129]t[178]0[164]1:[153]""[166]16)" ":[129]c[178]1[164]250:[130]:[153]"";
  143. 3050 [153][166]16)"wait ":[129]c[178]1[164]350:[130]:[130]:[137]1
  144. 4000 [151]s[170]4,21
  145. 4001 [129]i[178]1[164]155:[129]t[178]0[164]255[169]i
  146. 4002 [151]s[170]1,t:[151]s[170]15,i:[130]:[130]:[151]s[170]1,0:[151]s[170]15,0
  147. 4003 [151]s[170]4,129:[129]i[178]0[164]10[169].5:[151]s[170]1,i:[130]:[129]i[178]10[164]2[169][171]1:[151]s[170]1,i:[130]
  148. 4004 [129]c[178]1[164]500:[130]:[129]i[178]15[164]0[169][171].1:[151]s[170]24,i:[130]:[151]s[170]1,0:[142]
  149. 59999 [129]i[178]s[164]s[170]24:[151]i,0:[130]:[151]s[170]24,15:[151]s[170]5,255:[151]s[170]6,255:[142]
  150. 60000 [131]250,100,100,225,550,300,75
  151. 60001 [131]o,r," ",a,r,e," ",t,h,e,r,e,.,.,.,?
  152.